home *** CD-ROM | disk | FTP | other *** search
/ Codemasters Artwork Disc ECTS 2000 ( UK) / Codemasters - Artwork Disc ECTS 2000 (UK).bin / pc / main.dxr / 00088_select language.ls < prev    next >
Encoding:
Text File  |  2000-01-01  |  1.6 KB  |  42 lines
  1. on mouseUp me
  2.   global glanguage
  3.   if the machineType <> 256 then
  4.     case 1 of
  5.       ((the currentSpriteNum = 4) or (the currentSpriteNum = 13)):
  6.         glanguage = "SP"
  7.         castLib(2).fileName = the moviePath & "data:sptx"
  8.       ((the currentSpriteNum = 5) or (the currentSpriteNum = 14)):
  9.         glanguage = "GB"
  10.         castLib(2).fileName = the moviePath & "data:gbtx"
  11.       ((the currentSpriteNum = 6) or (the currentSpriteNum = 15)):
  12.         glanguage = "NL"
  13.         castLib(2).fileName = the moviePath & "data:nltx"
  14.       ((the currentSpriteNum = 7) or (the currentSpriteNum = 16)):
  15.         glanguage = "FR"
  16.         castLib(2).fileName = the moviePath & "data:frtx"
  17.       ((the currentSpriteNum = 8) or (the currentSpriteNum = 17)):
  18.         glanguage = "DL"
  19.         castLib(2).fileName = the moviePath & "data:dltx"
  20.     end case
  21.   else
  22.     case 1 of
  23.       ((the currentSpriteNum = 4) or (the currentSpriteNum = 13)):
  24.         glanguage = "SP"
  25.         castLib(2).fileName = the moviePath & "data/sptx"
  26.       ((the currentSpriteNum = 5) or (the currentSpriteNum = 14)):
  27.         glanguage = "GB"
  28.         castLib(2).fileName = the moviePath & "data/gbtx"
  29.       ((the currentSpriteNum = 6) or (the currentSpriteNum = 15)):
  30.         glanguage = "NL"
  31.         castLib(2).fileName = the moviePath & "data/nltx"
  32.       ((the currentSpriteNum = 7) or (the currentSpriteNum = 16)):
  33.         glanguage = "FR"
  34.         castLib(2).fileName = the moviePath & "data/frtx"
  35.       ((the currentSpriteNum = 8) or (the currentSpriteNum = 17)):
  36.         glanguage = "DL"
  37.         castLib(2).fileName = the moviePath & "data/dltx"
  38.     end case
  39.   end if
  40.   go("main")
  41. end
  42.